home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 111 / 111.d81 / wordgame shell (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  99 lines
  1. 2 poke55,0:poke56,56:clr
  2. 3 dv=peek(186):ifdv<8thendv=8
  3. 4 poke53280,0:poke53281,0:print"[147][158]        loading stuff . . ."
  4. 5 sys57812"mt.demo",dv,1:poke780,0:poke781,0:poke782,204:sys65493
  5. 6 sys57812"demo font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 7 mt=49152
  7. 8 dimi,j,j%,k,n,nc,te,a$,bs,ch$,d,ea,g7,sa,sb,sv,tb,x,y
  8. 9 print"[147][146]":poke53272,31
  9. 10 sysmt+3,0,39,0,24,0,15
  10. 14 dims(50),d(50):fori=1to50:s(i)=i:next:    nc=50
  11. 16 goto400
  12. 18 rem=======brancher=========
  13. 20 poke198,0:gosub62
  14. 21 fori=1tolen(ch$):ifa$=mid$(ch$,i,1)thenreturn
  15. 22 next:goto20
  16. 55 rem==========any key-get a$=========
  17. 58 x=10:y=24:gosub66:print" please press a key  ";
  18. 60 rem============get a$===========
  19. 62 geta$:ifa$=""then 70
  20. 63 return
  21. 64 rem=======print at=============
  22. 66 poke783,peek(783)and254:poke782,x:poke781,y:sys65520:return
  23. 68 rem=======shuffle while you play===
  24. 70 ifjj=nc-1thenjj=0
  25. 71 jj=jj+1:j%=jj+int(rnd(1)*(nc+1-jj)):temp=s(jj):s(jj)=s(j%):s(j%)=temp:goto62
  26. 98 rem=========word list============
  27. 100 dataable,aunt,band,bead,bold,bins,bunt,brad,card,clue,dart,dump
  28. 112 datadrab,drug,drip,ease,ears,fine,form,flaw,four,give,goal,gulp
  29. 114 datahole,help,hunt,hare,iota,ions,jolt,jerk,keep,kick,love,loan
  30. 116 dataleap,make,next,neat,pare,open,peal,rate,runt,sale,seal,stun
  31. 118 datatear,tart
  32. 398 rem=======print screen======
  33. 400 sysmt+3,6,33,1,6,160,5:poke646,5
  34. 404 x=8:y=2:gosub66:print"[205]aurice's [209]uick & [196]irty
  35. 408 y[178]y[170]1:[141]66:[153]" str$emo of chr$arbage free,
  36. 412 y=y+1:gosub66:print"  [201]nstant [210]eplaying,
  37. 416 y[178]y[170]1:[141]66:[153]"(NULL)on-repeating (NULL)ord chr$ames
  38. 420 sysmt+6,208:sysmt+3,3,36,9,22,32,5
  39. 422 rem======program starts==========
  40. 424 y=11:x=08:gosub66:print"[158][195]heck memory use . . ."
  41. 430 gosub3000:sysmt+9,208:sysmt+3,3,36,9,22,32,5:sysmt+6,208
  42. 432 dim w$(50)
  43. 434 y=11:x=08:gosub66:print"[146][196]im a string array . . ."
  44. 436 y=y+2:gosub66:print" 432 [196][201][205][160][215]$(50)
  45. 438 [141]3000:[158]mt[170]9,208:[158]mt[170]3,3,36,9,22,32,5
  46. 440 [143]======read strings==========
  47. 442 [129]i[178]1[164]50:[135]w$(i):[130]
  48. 446 y[178]11:x[178]10:[141]66:[153]"wait(NULL)ead strings . . ."
  49. 450 x[178]4:  y[178]y[170]2:[141]66:[153]" 442 asc(NULL)(NULL)right$=1(NULL)(NULL)50:(NULL)valatnstr$(NULL)$(right$):(NULL)val(NULL)(NULL)
  50. 454 gosub3000:sysmt+9,208
  51. 458 sysmt+3,0,39,0,24,0,5:sysmt+3,3,36,1,12,32,5
  52. 459 rem======the game begins======
  53. 460 k=1:n=0:g7=0:fori=1to50:d(i)=s(i):next
  54. 464 n=n+1:x=5+g7*6:y=1+n:gosub66:print"[146]"w$(d(k));:k=k+1:ifn=10then470
  55. 468 goto464
  56. 469 rem======the game ends=======
  57. 470 sysmt+6,216
  58. 472 gosub2000:g7=g7+1:n=0
  59. 476 onigoto480,484,40000
  60. 478 rem=======new game==========
  61. 480 sysmt+9,216:  ifg7=5then458
  62. 482 sysmt+9,216:goto464
  63. 483 rem======memory check=======
  64. 484 sysmt+9,208:gosub3000:sysmt+9,216:g7=g7-1:goto472
  65. 1998 rem====menu subroutine=====
  66. 2000 sysmt+3,18,36,18,22,32,0
  67. 2004 x=19:y=19:gosub66:print"[146][158]1. [193]nother game"
  68. 2008 y=y+1:gosub66:print"2. [195]heck memory
  69. 2016 y[178]y[170]1:[141]66:[153]"3. (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  70. 2020 ch$="123":a$="": gosub20:return
  71. 2998 rem====memory usage subroutine===
  72. 3000 poke646,4
  73. 3100 sb=peek(43)+256*peek(44)
  74. 3110 sv=peek(45)+256*peek(46)
  75. 3120 sa=peek(47)+256*peek(48)
  76. 3130 ea=peek(49)+256*peek(50)
  77. 3140 bs=peek(51)+256*peek(52)
  78. 3160 tb=peek(55)+256*peek(56)
  79. 3164 y=17:x=5:gosub66:print"[194]ytes used by code";
  80. 3166 printtab(35-len(str$(sv-sb)))sv-sb
  81. 3168 y=y+1:gosub66:print"[194]ytes used by variables";
  82. 3172 printtab(35-len(str$(sa-sv)))sa-sv
  83. 3174 y=y+1:gosub66:print"[194]ytes used by arrays";
  84. 3178 printtab(35-len(str$(ea-sa)))ea-sa
  85. 3182 y=y+1:gosub66:print"[194]ytes used by strings";
  86. 3186 printtab(35-len(str$(tb-bs)))tb-bs
  87. 3190 y=y+1:gosub66:print"[194]ytes free";:printtab(35-len(str$(bs-ea)))bs-ea
  88. 3200 gosub58:return
  89. 9998 rem=====resave==========
  90. 10000 open15,8,15,"s0:wordgame shell":close15:save"wordgame shell",8:end
  91. 39998 rem=====reconect=======
  92. 40000 print"[147]":poke53281,0:poke53280,0:poke53272,21
  93. 40005 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
  94. 40010 close15:open15,i,15,"r0:hello connect=hello connect"
  95. 40015 input#15,er:close15:ifer=63then40030
  96. 40020 next:print"[147][159]":poke2048,0:poke44,8:poke53272,23:poke186,dv:end
  97. 40030 print"[147][144]load"chr$(34)a$chr$(34)","i
  98. 40040 print"run":poke631,13:poke632,13:poke198,2:end
  99.